unit clsVerificacaoDeNotaComTitulo;

interface

uses
  DbTables;

type
  TVerificacaoDeNotaComTitulo = class
  private
    Sql:String;

  public
    constructor Create(); Overload;
    constructor Create(consulta:String); Overload;

    function GetSql():String;
    procedure SetSql(Sql:String);

    function QuantidadeDeRegistros():integer;

  end;

implementation

uses
  Biblio, Rel_NotaFiscal;

{ TVerificacaoDeNotaComTitulo }

constructor TVerificacaoDeNotaComTitulo.Create;
begin

end;

constructor TVerificacaoDeNotaComTitulo.Create(consulta: String);
begin

end;

function TVerificacaoDeNotaComTitulo.GetSql: String;
begin
  Result := Self.Sql;
end;

procedure TVerificacaoDeNotaComTitulo.SetSql(Sql: String);
begin
  Self.Sql := Sql;
end;

function TVerificacaoDeNotaComTitulo.QuantidadeDeRegistros: integer;
var
  tq:TQuery;

begin
  tq := TQuery.Create(DmInt.Db);
  tq.DatabaseName := DmInt.Db.DatabaseName;
  tq.Active := false;

  try
    tq.Close;
    tq.SQL.Clear;
    tq.Params.Clear;
    tq.SQL.Add('');

  finally
    tq.Close;
    FreeAndNil(tq);

  end;

end;

end.
